*****************************
**Online Appendix Figure B6**
*****************************

use "Voter and Politician Data Combined.dta"

reg outcome1_all i.treat_violence##i.politician
margins, dydx(politician) at(treat_violence==1) saving(main_effect, replace)

reg outcome1_coethnic i.treat_violence##i.politician
margins, dydx(politician) at(treat_violence==1) saving(coethnic_effect, replace)

reg outcome2 i.treat_rhetoric##i.politician
margins, dydx(politician) at(treat_rhetoric==1) saving(rhetoric_effect, replace)

combomarginsplot main_effect coethnic_effect rhetoric_effect, labels("Violence" "Violence (Coethnic)" "Rhetoric") horizontal plotopts(connect(none)) title("") ytitle("") xtitle("") xscale(range(-6/6)) xlabel(-6/6) xline(0)
